home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
cditp21.zip
/
CODEIT.E_
/
DEMOM4.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-05-27
|
7KB
|
213 lines
DECLARE SUB RingTestDefine ()
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'DEMOM4.BAS Copyright (C) 1991-1992, Clear Software. ALL RIGHTS RESERVED
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'$INCLUDE: 'CITOOLS.BI'
'$INCLUDE: 'CIMENU4.BI'
'$INCLUDE: 'CIMOUSE.BI'
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
DEFINT A-Z
CONST TRUE = -1, FALSE = 0
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Initialize the mouse, clear the screen, and paint the background.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MouseInit
CLS
COLOR 0, 1
ScreenPaint 2, 79, 4, 22, ""
COLOR 9, 1
DrawBox 1, 80, 3, 23, 2
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Call the RingTestDefine SUB to define the ring menu then show the mouse and
'enter the menu loop.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
RingTestDefine
MouseShow
MENUTRAP = FALSE
curMenu = 1
curItem = 1
WHILE NOT RINGDONE
item = RingActive(curMenu, curItem)
SELECT CASE item
CASE 1
curMenu = 2
curItem = 1
DO
item = RingActive(curMenu, curItem)
SELECT CASE item
CASE 5, -27
curMenu = 1
curItem = 1
EXIT DO
END SELECT
LOOP
CASE 2
curMenu = 3
curItem = 1
DO
item = RingActive(curMenu, curItem)
SELECT CASE item
CASE 5, -27
curMenu = 1
curItem = 2
EXIT DO
END SELECT
LOOP
CASE 3
curMenu = 4
curItem = 1
DO
item = RingActive(curMenu, curItem)
SELECT CASE item
CASE 5, -27
curMenu = 1
curItem = 3
EXIT DO
END SELECT
LOOP
CASE 4
curMenu = 5
curItem = 1
DO
item = RingActive(curMenu, curItem)
SELECT CASE item
CASE 5, -27
curMenu = 1
curItem = 4
EXIT DO
END SELECT
LOOP
CASE 5
RINGDONE = TRUE
CASE -27
RINGDONE = TRUE
END SELECT
WEND
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'The user selected to exit the program so hide the mouse and clean up the
'screen.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MouseHide
COLOR 7, 0
CLS
SUB RingTestDefine
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Dimention the arrays. Note the (1 TO 10) dimentions.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
DIM HelpRing1$(1 TO 10)
DIM HelpRing2$(1 TO 10)
DIM HelpRing3$(1 TO 10)
DIM HelpRing4$(1 TO 10)
DIM HelpRing5$(1 TO 10)
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Define the menu choices, location, and colors for the main and one sub menu.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
RingDefine 1, 1, 1, "West", 1
RingDefine 1, 2, 1, "East", 1
RingDefine 1, 3, 1, "North", 1
RingDefine 1, 4, 1, "South", 1
RingDefine 1, 5, 1, "Exit", 2
HelpRing1$(1) = "Go west young man, go west"
HelpRing1$(2) = "Not the far east, just east"
HelpRing1$(3) = "Don't go too far north, it's chilly up there"
HelpRing1$(4) = "Southern hospitality"
HelpRing1$(5) = "Exit the program, take me away from this nonsense"
RingDescript 1, 2, 2, 79, HelpRing1$(), 3, 0
RingDefine 2, 1, 1, "Beaches", 1
RingDefine 2, 2, 1, "Mountains", 1
RingDefine 2, 3, 1, "Trafic", 1
RingDefine 2, 4, 1, "Sunshine", 1
RingDefine 2, 5, 1, "Return", 1
HelpRing2$(1) = "Surf's up dude"
HelpRing2$(2) = "There are still some between the condos"
HelpRing2$(3) = "Everywhere"
HelpRing2$(4) = "When the smog clears"
HelpRing2$(5) = "Return to the main menu, get me out of California"
RingDescript 2, 2, 2, 79, HelpRing2$(), 3, 0
RingDefine 3, 1, 1, "History", 1
RingDefine 3, 2, 1, "Broadway", 1
RingDefine 3, 3, 1, "People", 1
RingDefine 3, 4, 1, "Slang", 1
RingDefine 3, 5, 1, "Return", 1
HelpRing3$(1) = "Fore scores and seven years ago"
HelpRing3$(2) = "Expensive entertainment"
HelpRing3$(3) = "Sometimes you just can't get away from them"
HelpRing3$(4) = "Yo"
HelpRing3$(5) = "Return to the main menu, awway from all this madness"
RingDescript 3, 2, 2, 79, HelpRing3$(), 3, 0
RingDefine 4, 1, 1, "Farms", 1
RingDefine 4, 2, 1, "Green", 1
RingDefine 4, 3, 1, "Small Town", 1
RingDefine 4, 4, 1, "Water", 1
RingDefine 4, 5, 1, "Return", 1
HelpRing4$(1) = "The backbone of America"
HelpRing4$(2) = "Everythings green, exept the milk"
HelpRing4$(3) = "Everybody knows everyone and tells everyone everything"
HelpRing4$(4) = "Sometimes more than they need...Send some to California"
HelpRing4$(5) = "Return to the main menu, I'm goin to the city"
RingDescript 4, 2, 2, 79, HelpRing4$(), 3, 0
RingDefine 5, 1, 1, "Hats", 1
RingDefine 5, 2, 1, "Long Horns", 1
RingDefine 5, 3, 1, "Blue Grass", 1
RingDefine 5, 4, 1, "Cajun", 1
RingDefine 5, 5, 1, "Return", 1
HelpRing5$(1) = "Ten gallon to be exact"
HelpRing5$(2) = "Big moo moo's"
HelpRing5$(3) = "The music, not the growin kind"
HelpRing5$(4) = "Coookin' that will wake you up!"
HelpRing5$(5) = "Return to the main menu, I've got indigestion from the spicy food"
RingDescript 5, 2, 2, 79, HelpRing5$(), 3, 0
RingColors 3, 0, 0, 3, 15, 15
END SUB